-- card: 39297 from stack: in
-- bmap block id: 0
-- flags: 0000
-- background id: 38941
-- name: 


-- part 1 (field)
-- low flags: 81
-- high flags: 2004
-- rect: left=8 top=160 right=275 bottom=188
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 20
-- part name: About
----- HyperTalk script -----
on mouseUp
  hide card field "About"
end mouseUp


-- part 3 (field)
-- low flags: 00
-- high flags: 0007
-- rect: left=246 top=108 right=281 bottom=467
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: List


-- part 4 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=278 top=77 right=99 bottom=428
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Find Titles by Artist
----- HyperTalk script -----
on mouseUp
  ask "Artist to list recordings of?" with "Beatles"
  if it is empty then exit mouseUp
  put it into Artist
  put empty into card field "List"
  set cursor to 4
  set lockscreen to true
  repeat with x = 2 to number of cards
    go to next card
    put "Processing card" && x
    if field "Artist" contains Artist then
      put field "Title" & return after card field "List" of first card
      push card
      go to first card
      set lockscreen to false
      set lockscreen to true
      pop card
    end if
  end repeat
  go to first card
  set lockscreen to false
  hide message
end mouseUp



-- part 5 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=17 top=19 right=69 bottom=78
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Melody
----- HyperTalk script -----
on mouseUp
  put "b3 c#4 d e f# g a#3 g4 f# e d c#" into notes1
  put "d r f# r b r c# r b r a# r bw" into notes2
  play Harpsichord tempo 380 notes1 && notes2
end mouseUp



-- part 6 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=428 top=20 right=70 bottom=489
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Charge
----- HyperTalk script -----
on mouseUp
  play Boing tempo 300 g3 c4 e gh eq gw
end mouseUp



-- part contents for background part 1
----- text -----
63

-- part contents for background part 2
----- text -----
4

-- part contents for background part 3
----- text -----
20

-- part contents for background part 5
----- text -----
14

-- part contents for background part 10
----- text -----
101

-- part contents for card part 1
----- text -----
This stack was written
by
Bob Fronabarger
and is free for
non-commercial use

-- part contents for card part 3
----- text -----
Emotional Rescue
Exile On Mainstreet
Let It Bleed
Tattoo You